home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / imb9011.zip / MODULE2.BAS < prev    next >
BASIC Source File  |  1990-11-01  |  556b  |  38 lines

  1. 'Module level code for the support module MODULE2.BAS
  2.  
  3. COMMON A$, B$, C$
  4. COMMON /FirstBlock/ O$
  5. COMMON /SecondBlock/ N$
  6.  
  7. SUB SubMod2A
  8.  
  9. SHARED O$, N$
  10.  
  11.  
  12. PRINT "Entering SubMod2A"
  13. PRINT "  with SHARED O$, N$"
  14.  
  15. PRINT "A$="; A$, "B$="; B$, "C$="; C$
  16. PRINT "N$="; N$, "O$="; O$
  17.  
  18. PRINT "Leaving SubMod2A"
  19. PRINT
  20.  
  21. END SUB
  22.  
  23. SUB SubMod2B
  24.  
  25. SHARED A$, B$, C$
  26.  
  27. PRINT "Entering SubMod2B"
  28. PRINT "  with SHARED A$, B$, C$"
  29. PRINT
  30. PRINT "A$="; A$, "B$="; B$, "C$="; C$
  31. PRINT "N$="; N$, "O$="; O$
  32.  
  33. PRINT "Leaving SubMod2B"
  34. PRINT
  35.  
  36. END SUB
  37.  
  38.